home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / programming / other / gui4cli / docs / tutorials / textfile.gc < prev    next >
Encoding:
Gui4CLI script  |  1999-05-14  |  1.5 KB  |  48 lines
  1. G4C
  2.  
  3. ; ---------------------------------------------------------------
  4. ;       This is an example of how to use the TEXTFILE command
  5. ;       for supplying data for a listview, on the fly..
  6. ; ---------------------------------------------------------------
  7.  
  8. WINBIG -1 -1 362 61 TextFile.gc
  9. WinType 11110001
  10.  
  11. xOnLoad
  12.   GuiOpen TextFile.gc
  13.   ; We can delete the file once we have loaded the gui, since
  14.   ; the listview has already read it's contents.
  15.   ; Remember - this xOnLoad event is executed *after* the file 
  16.   ; has been loaded, whereas the TextFile command is executed 
  17.   ; *while* the file is being loaded.
  18.   Delete RAM:MyFile
  19.  
  20. xOnClose
  21.   GuiQuit TextFile.gc
  22.  
  23. ; ---------------------------------------------------------------
  24. ;       The TEXTFILE
  25. ;       Note we declare it *before* we declare the listview, so
  26. ;       that when Gui4Cli reaches the listview, the file is 
  27. ;       already created and ready.
  28. ; ---------------------------------------------------------------
  29.  
  30. TEXTFILE RAM:MyFile
  31.  
  32.   This file was created on the fly, using the 
  33.   TEXTFILE command, loaded into this listview
  34.   and then deleted relentlessly..
  35.  
  36.                            He who did it.
  37. ###
  38.  
  39. ; ---------------------------------------------------------------
  40. ;       This is the listview wich will dispaly the above file.
  41. ;    When Gui4Cli reaches here, it will try to find the file
  42. ;    and load it into the listview.
  43. ; ---------------------------------------------------------------
  44.  
  45. XLISTVIEW 0 0 360 60 "" var RAM:MyFile 0 TXT
  46.  
  47.  
  48.